home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / ALPHA.PLOT.SHK / ALPHA.PLOT / ALPHA BOOT.bas < prev    next >
BASIC Source File  |  2000-01-01  |  3KB  |  30 lines
  1. 9  IF  PEEK(115) + PEEK(116) *256 < >38400  THEN  CALL 64135: REM BOOT.THIS.DISK
  2. 100 V$ = "9/1/84"
  3. 120  IF  PEEK(104) < >8  THEN  POKE 2048,0: POKE 103,1: POKE 104,8: PRINT  CHR$(4);"RUN ALPHA BOOT"
  4. 130 E2 = 0: IF  PEEK(64435) = 6  THEN E2 = 1: REM IIE/IIC CHECK
  5. 150  TEXT : NORMAL : PRINT  CHR$(21): HOME : PRINT "<CTRL-D>NOMONICO":SH = 4019:ST = 24577:OB = 4131: POKE 230,32
  6. 160  VTAB 2: HTAB 1: INVERSE : HTAB 2: PRINT ":            :": HTAB 2: PRINT "  ALPHA PLOT  ": HTAB 2: PRINT ":            :": NORMAL 
  7. 170  IF   NOT E2  THEN  PRINT : PRINT "BY BERT KERSEY & JACK CASSIDY": PRINT "-----------------------------<CTRL-M> COPYRIGHT (C) 1982<CTRL-M> BEAGLE BROS, INC.<CTRL-M> 3990 OLD TOWN AVENUE<CTRL-M> SAN DIEGO, CALIFORNIA 92110<CTRL-M>"
  8. 180  IF E2  THEN  PRINT : PRINT "by Bert Kersey & Jack Cassidy": PRINT "-----------------------------<CTRL-M> Copyright (c) 1982<CTRL-M> BEAGLE BROS, INC.<CTRL-M> 3990 Old Town Avenue<CTRL-M> San Diego, California 92110<CTRL-M>"
  9. 190  SCALE= 1: ROT= 0: HCOLOR= 3: INVERSE : VTAB 14: HTAB 1: PRINT " LOADING ALPHA CODE ";: CALL  -958: NORMAL 
  10. 200  IF E2  THEN  VTAB 22: HTAB 1: INVERSE : PRINT " CAPS-LOCK KEY DOWN PLEASE ": NORMAL 
  11. 210  VTAB 2: HTAB 41 - LEN(V$): PRINT V$;: VTAB 16
  12. 220  PRINT : PRINT "<CTRL-D>BLOAD ALPHA CODE,A";SH
  13. 230  VTAB 14: HTAB 1: PRINT "ALPHA CODE LOADED   ": FOR I = 1 TO 666: NEXT 
  14. 240  CALL  -958
  15. 250  IF   NOT E2  THEN  VTAB 16: PRINT "A = RUN ALPHA PLOT": PRINT "I = RUN ALPHA INFO": PRINT "Q = QUIT": PRINT : PRINT "    SELECT:";: GET A$: PRINT A$: IF A$ < >"A"  AND A$ < >"I"  AND A$ < >"Q"  THEN 250
  16. 260  IF E2  THEN  VTAB 16: PRINT "A = Run ALPHA PLOT": PRINT "I = Run ALPHA INFO": PRINT "Q = Quit": PRINT : PRINT "    SELECT:";: GET A$: PRINT A$: IF A$ < >"A"  AND A$ < >"I"  AND A$ < >"Q"  AND A$ < >"a"  AND A$ < >"i"  AND A$ < >"q"  THEN 260
  17. 265  IF A$ > = "a"  THEN  INVERSE : VTAB 22: HTAB 1: PRINT " CAPS LOCK DOWN PLEASE ": NORMAL : GOTO 250
  18. 270  IF A$ = "I"  THEN R$ = "RUN ALPHA INFO"
  19. 280  IF A$ = "A"  AND E2 = 1  THEN R$ = "RUN ALPHA PLOT/E": REM IF APPLE IIE
  20. 290  IF A$ = "A"  AND E2 = 0  THEN R$ = "RUN ALPHA PLOT"
  21. 300  IF A$ = "Q"  THEN 400
  22. 310  IF A$ = "I"  THEN  INVERSE : VTAB 16: HTAB 1: CALL  -958: PRINT " "R$" ";: NORMAL : CALL  -958: PRINT : PRINT : GOTO 390
  23. 330  FOR I = 1 TO 666: NEXT : VTAB 16: HTAB 1: CALL  -958: PRINT "CLEAR HI-RES SCREENS? (Y/N):";: GET A$: PRINT A$: IF A$ < >"Y"  AND A$ < >"N"  THEN 330
  24. 340 W$ = "CLEARED": IF A$ = "N"  THEN W$ = "NOT CLEARED"
  25. 350  FOR I = 15 TO 1  STEP  -1: VTAB 16: HTAB I: PRINT "HI-RES SCREENS ";W$;: CALL  -958: NEXT 
  26. 360  IF A$ = "Y"  THEN  POKE OBL +3,5: POKE OBL +4,5: POKE OBL +5,0: POKE OBL +6,32: POKE OBL +7,255: POKE OBL +8,63: POKE OBL +9,0: POKE OBL +10,64: CALL OBL: TEXT : VTAB 16: HTAB 16: PRINT "CLEARED";: CALL  -958
  27. 370  INVERSE : VTAB 18: HTAB 1: PRINT " ";R$;" ";: CALL  -958: PRINT 
  28. 380  POKE 232,SH - INT(SH/256) *256: POKE 233, INT(SH/256): POKE 103,ST - INT(ST/256) *256: POKE 104, INT(ST/256): POKE ST -1,0
  29. 390  PRINT : PRINT  CHR$(4);R$
  30. 400  END